Notes

Disk info for MusiComp_1980_Apple.do:

File Name: a2_MusiComp_1980_Apple/MusiComp_1980_Apple.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 39936
Used Space (bytes): 103424
Physical Size (KB): 140
Free Space (KB): 39
Used Space (KB): 101
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 156
Used Sectors: 404
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for MusiComp_1980_Apple.do:

a2_MusiComp_1980_Apple/MusiComp_1980_Apple.do DISK VOLUME #254
A 006 HELLO
* I 048 MUSICMASTER
* I 056 MUSICOMP
* I 039 HELLO1
* B 002 SAY HELLO ;MUSIC
* B 002 MUSETTE ;MUSIC
* B 002 ROMANCE ;MUSIC
* B 002 SWAN ;MUSIC
* B 002 GAVOTTE 1 ;MUSIC
* B 002 GAVOTTE 2 ;MUSIC
* B 002 GAVOTTE 3 ;MUSIC
* B 003 GAVOTTE 4 ;MUSIC
* B 003 BOURREE 1 ;MUSIC
* B 002 BOURREE 2 ;MUSIC
* B 004 PRELUDE 1 ;MUSIC
* B 003 PRELUDE 2 ;MUSIC
* B 002 MINUET 1 ;MUSIC
* B 002 MINUET 2 ;MUSIC
* B 002 MINUET 3 ;MUSIC
* B 002 MINUET 4 ;MUSIC
* B 002 MINUET 5 ;MUSIC
* B 003 MINUET 6 ;MUSIC
* B 003 FUGUE 1 ;MUSIC
* B 003 FUGUE 2 ;MUSIC
* B 004 FUGUE 3 ;MUSIC
* B 006 FUGUE 4 ;MUSIC
* B 003 JESU ;MUSIC
* B 002 SLEEPERS ;MUSIC
* B 004 JEFGIG ;MUSIC
* B 050 INTBASIC
* B 002 DAY BY DAY ;MUSIC
* B 002 SATURDAY MORNING ;MUSIC
* B 002 ELANOR RIGBY ;MUSIC
* B 003 WILLIAM TELL ;MUSIC
* B 003 ENTERTAINER ;MUSIC
* B 002 CAT BALLOU ;MUSIC
* B 003 IMPOSSIBLE DREAM ;MUSIC
* B 002 GEORGY GIRL ;MUSIC
* B 002 SAN JOSE ;MUSIC
* B 002 SMALL WORLD ;MUSIC
* B 002 ONLY JUST BEGUN ;MUSIC
* B 002 SCARBOROUGH FAIR ;MUSIC
* B 003 BLOWIN IN THE WIND ;MUSIC
* B 003 DONT KNOW HOW TO LOVE HIM ;MUS
* B 002 STARS & STRIPES FOREVER ;MUSIC
* B 003 BOTH SIDES NOW ;MUSIC
* B 002 AQUARIUS ;MUSIC
* B 002 FOR ALL WE KNOW ;MUSIC
* B 003 I GOT A NAME ;MUSIC
* B 002 BORN FREE ;MUSIC
* B 003 WINDMILLS OF YOUR MIND ;MUSIC
* B 002 MAHOGANY ;MUSIC
B 002 M*A*S*H ;MUSIC
* B 002 YESTERDAY ;MUSIC
* B 003 BRIDGE OVER TROUBLED WATER ;MU
* B 003 PUFF THE MAGIC DRAGON ;MUSIC
* B 002 MRS ROBINSON ;MUSIC
* B 003 LEAVING ON A JET PLANE ;MUSIC
B 002 A ;MUSIC
T 001 DATA FILES
B 002 REAL FAST ;MUSIC
B 002 S&SF ;MUSIC
DOS 3.3 format; 39,936 bytes free; 103,424 bytes used.

Text found in MusiComp_1980_Apple.do/HELLO.bas:

10 REM -- DOS 3.3 HELLO
20 REM
30 TEXT : PRINT
40 HOME
50 PRINT "DOS VERSION 3.3 08/25/80"
60 PRINT : PRINT "APPLE II PLUS OR ROMCARD SYSTEM MASTER"
70 REM
80 REM --POKE LANGUAGE CARD FINDER
90 POKE 768,0: POKE 769,173: POKE 770,0: POKE 771,224: POKE 772,72: POKE 773,173: POKE 774,129: POKE 775,192: POKE 776,104:
95 POKE 777,72: POKE 778,205: POKE 779,0: POKE 780,224: POKE 781,208: POKE 782,35: POKE 783,173: POKE 784,131: POKE 785,192:
100 POKE 786,173: POKE 787,131: POKE 788,192: POKE 789,169: POKE 790,165: POKE 791,141: POKE 792,0: POKE 793,208: POKE 794,205:
105 POKE 795,0: POKE 796,208: POKE 797,208: POKE 798,19: POKE 799,74: POKE 800,141: POKE 801,0: POKE 802,208: POKE 803,205:
110 POKE 804,0: POKE 805,208: POKE 806,208: POKE 807,10: POKE 808,173: POKE 809,129: POKE 810,192: POKE 811,173: POKE 812,129:
115 POKE 813,192: POKE 814,169: POKE 815,1: POKE 816,208: POKE 817,2: POKE 818,169: POKE 819,0: POKE 820,141: POKE 821,0:
120 POKE 822,3: POKE 823,104: POKE 824,205: POKE 825,0: POKE 826,224: POKE 827,240: POKE 828,3: POKE 829,173: POKE 830,128:
125 POKE 831,192: POKE 832,96:
155 CALL 769
160 IF PEEK(768) < >1 THEN 250
170 REM
180 REM --IF THERE, LOAD INTG AND PA#1
190 REM
200 VTAB 10: PRINT "(LOADING INTEGER INTO LANGUAGE CARD)"
210 PRINT "BLOAD INTBASIC,A$D000"
220 REM --WRITE PROTECT THE CARD
230 A = PEEK( -16254): REM $C082
240 GOTO 300
250 REM
260 REM --NO CARD OR CAN'T RELOAD
270 REM
280 IF PEEK(768) = 0 THEN END
290 PRINT : PRINT "...LANGUAGE CARD CANNOT BE RELOADED": PRINT " UNTIL THE SYSTEM IS REBOOTED..."
300 PRINT CHR$(4);"RUN HELLO1"

Text found in MusiComp_1980_Apple.do/HELLO1.int:

20 TEXT :HIMEM:16384:LOMEM:2048
30 D$=""
60 PRINT D$;"BLOAD SAY HELLO ;MUSIC"
62 POKE -16304,0: POKE -16297,0: POKE -16302,0
70 CALL 6912
80 CALL -936:TEXT
90 VTAB 10:TAB 8:PRINT "JUST A MOMENT, PLEASE..."
100 PRINT D$,"RUN MUSICMASTER"
4265
Listing error: possible embedded machine code.

Text found in MusiComp_1980_Apple.do/MAHOGANY ;MUSIC.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 CD 1D 1E C5 20 CD 1E 1D 1E 1D C9 1B CD 32 1B 1D M..E M.. ..I.M2..
$000010 C9 1E 19 18 18 19 1B 1D 19 D9 16 CD 32 C9 16 18 I....... .Y.M2I..
$000020 19 1B 18 C5 15 C9 16 18 C5 1A C9 32 CD 1D 1E C5 ...E.I.. E.I2M..E
$000030 20 CD 1E 1D 1E 1D C9 1B CD 32 1B 1D C9 1E 19 18 M....I. M2..I...
$000040 18 19 1B 1D 19 D9 16 CD 32 C9 16 18 19 1B 18 C5 .....Y.M 2I.....E
$000050 15 C9 16 18 C5 1A .. .. .. .. .. .. .. .. .. .. .I..E.
** END **

Text found in MusiComp_1980_Apple.do/MUSICMASTER.int:

10 GOSUB 32000
20 TEXT : POKE -16301,0
30 DIM Q$(30),D1$(30):D$="":REM CTRL D
35 POKE 1019, PEEK (1011): POKE 1020, PEEK (1012): POKE 1011,0: POKE 1012,0
40 PRINT D$;"NOMON C,I,O"
45 VPOS=5
50 FLAG=0:Q=0:VPOS=VPOS-1
60 CALL -936:PRINT "***** APPLE II 'MUSICOMP' SYSTEM *****"
70 PRINT :PRINT " HERE ARE THE MUSICAL SELECTIONS:"
80 POKE 34,4: POKE 32,5: POKE 33,20:PRINT
90 FOR COLUMN1=1 TO 17:D1$="":GOSUB 9010+COLUMN1*5-5
100 IF LEN(D1$)=0 THEN 150:PRINT D1$:NEXT COLUMN1
150 COLUMN1=COLUMN1-1:IF COLUMN1<>17 THEN 1000
260 POKE 32,25:VTAB 5
280 FOR COLUMN2=1 TO 17:D1$="":GOSUB 9010+(COLUMN2+16)*5
290 IF LEN(D1$)=0 THEN 300:PRINT D1$:NEXT COLUMN2
300 COLUMN2=COLUMN2-1
1000 PRINT "ADD NEW MUSIC"
1005 PRINT "QUIT PROGRAM"
1010 TEXT :VTAB 23:PRINT ">> PRESS FORWARD OR BACK ARROW TO SELECT";
1020 PRINT ">> PRESS RETURN KEY TO BEGIN PLAY...";
1030 VTAB VPOS
1040 IF NOT FLAG THEN 1100:TAB COLUMN+1
1050 IF COLUMN AND COLUMN2 THEN 1055:IF PEEK (37)";
1052 IF PEEK (37)=COLUMN1+4 THEN PRINT "WORK>";:IF PEEK (37)>COLUMN1+4 THEN PRINT "END>>";:GOTO 1060
1055 IF PEEK (37)";
1057 IF PEEK (37)=COLUMN2+4 THEN PRINT "WORK>";:IF PEEK (37)>COLUMN2+4 THEN PRINT "END>>";
1060 REM ONCE THROUGH TO INIT
1080 Q= PEEK (-16384):IF Q<>136 AND Q<>149 AND Q<>141 THEN 1080
1100 POKE -16368,0:IF Q=141 THEN 1190
1110 TAB (COLUMN+1):PRINT " ";
1120 VPOS=VPOS+(Q=149)-(Q=136)+NOT FLAG:FLAG=1
1130 VTAB VPOS:REM UPDATE SCREEN ADDRESS
1140 BAS= PEEK (36)+ PEEK (40)+ PEEK (41)*256:REM GET SCREEN ADDRESS
1150 CHAR= PEEK (BAS+1)
1160 REM TITLE PRESENT ON LINE?
1170 IF CHAR#160 THEN 1180:IF Q=136 THEN 1175:VPOS=5:COLUMN=20*(NOT COLUMN):GOTO 1030
1175 COLUMN=20*(NOT COLUMN):IF COLUMN THEN VPOS=COLUMN2+6:IF NOT COLUMN THEN VPOS=COLUMN1+4+2*(COLUMN2=0)
1180 GOTO 1030
1190 BAS= PEEK (36)+ PEEK (40)+ PEEK (41)*256
1200 FOR X=0 TO 14
1210 Q= PEEK (BAS+X)
1220 POKE (2053+X),Q
1230 IF Q=160 AND OQ=160 THEN 1250
1240 OQ=Q:NEXT X
1250 POKE (2053+X),0
1260 IF Q$="QUIT PROGRAM " THEN 31111
1265 IF Q$#"ADD NEW MUSIC " THEN 1270:PRINT :PRINT D$;"RUN MUSICOMP":END
1270 PRINT
1280 PRINT D$;"BLOAD";Q$;";MUSIC"
1290 CALL -936:VTAB 22:TAB 12:PRINT "SELECTION: ";Q$
1300 POKE -16297,0:GR
1310 CALL 6912
1320 CALL -936:VTAB 22:TAB 12:PRINT "(PRESS SPACE BAR)"
1330 Q= PEEK (-16384):IF Q<127 THEN 1330
1340 TEXT : POKE -16368,0:GOTO 50
1350 CALL -936:END
1360 END
9000 REM TITLE
9001 D1$="***** APPLE II AMUSICOMPA SYSTEM *****"
9010 D1$="MUSETTE":RETURN
9015 D1$="ROMANCE":RETURN
9020 D1$="SWAN":RETURN
9025 D1$="GAVOTTE 1":RETURN
9030 D1$="GAVOTTE 2":RETURN
9035 D1$="GAVOTTE 3":RETURN
9040 D1$="GAVOTTE 4":RETURN
9045 D1$="BOURREE 1":RETURN
9050 D1$="BOURREE 2":RETURN
9055 D1$="PRELUDE 1":RETURN
9060 D1$="PRELUDE 2":RETURN
9065 D1$="MINUET 1":RETURN
9070 D1$="MINUET 2":RETURN
9075 D1$="MINUET 3":RETURN
9080 D1$="MINUET 4":RETURN
9085 D1$="MINUET 5":RETURN
9090 D1$="MINUET 6":RETURN
9095 D1$="FUGUE 1":RETURN
9100 D1$="FUGUE 2":RETURN
9105 D1$="FUGUE 3":RETURN
9110 D1$="FUGUE 4":RETURN
9115 D1$="JESU":RETURN
9120 D1$="SLEEPERS":RETURN
9125 D1$="JEFGIG":RETURN
9130 RETURN
9135 RETURN
9140 RETURN
9145 RETURN
9150 RETURN
9155 RETURN
9160 RETURN
9170 RETURN
9175 RETURN
31111 POKE 1011, PEEK (1019): POKE 1012, PEEK (1020)
31112 TEXT :CALL -936:TEXT :END
32000 HIMEM:16384
32010 RETURN
32767 REM END
Listing error: possible embedded machine code.

Text found in MusiComp_1980_Apple.do/MUSICOMP.int:

1 GOTO 10
5 X1= PEEK (36):Y1= PEEK (37)
6 POKE 36,X1: POKE 37,Y1-1
7 INPUT Q$:XZ= LEN(Q$):IF XZ=0 THEN 6:IF XZ>4 THEN 6
8 Q=0:FOR XX=1 TO XZ:XY= ASC(Q$(XX,XX)):IF XY<176 OR XY>185 THEN 6
9 Q=Q+(XY-176)*(10^(XZ-XX)):NEXT XX:PRINT :RETURN
10 GOSUB 32000
20 TEXT : POKE -16301,0: POKE 16384,255
30 DIM Q$(40),J$(40):DIM R$(30):R$="D D#E F F#G G#A A#B C C#"
50 GOTO 760
60 R=Q-128:C=R/32:S=C*32:R=R-S:B=R/4:S=B*4:A=R-S
70 Q$="H>S":IF A=1 THEN Q$="H>H":IF A=2 THEN Q$="S>S"
80 PRINT "MODE: ";Q$;
85 X=B:D=0:IF X<5 THEN 90:D=1:X=X-4
90 PRINT ",LENGTH: 1/";(2^X);
95 IF D THEN PRINT "*";
100 PRINT ",TIMBRE: ";C;" ";
110 RETURN
180 VTAB 19:CALL -958:INPUT "(N) NEW MUSIC OR (C) CONTINUE ?",Q$:IF LEN(Q$)=0 THEN 180:IF Q$(1,1)#"N" AND Q$(1,1)#"C" THEN 180
182 VTAB 21:CALL -958:INPUT "DO YOU WANT TO HAVE TO TYPE AN 'A' TO ENTER EACH NOTE INTO MEMORY?",J$
183 IF LEN(J$)=0 THEN 182:IF J$(1,1)#"N" AND J$(1,1)#"Y" THEN 182:IF J$(1,1)="Y" THEN INDFLAG=1:IF J$(1,1)="N" THEN INDFLAG=0
185 CALL -936
190 TOP=16385:IF Q$(1,1)="N" THEN 210:CALL FIND
200 TOP= PEEK (0)+ PEEK (1)*256
210 PTR=TOP-1: POKE PTR,255
215 IF Q$="N" THEN CALL PLAY
220 GOSUB 1000:VTAB 23
230 PRINT
240 PRINT "NOTE # ";PTR-16384;" ?";:IF PTR=16384 THEN PRINT " (MUST BE A MODE SET)";
250 CALL KEYS
255 IF PTR=16384 AND PEEK (0)<>52 THEN 250
260 Q= PEEK (0):IF Q>50 THEN 280: POKE 768,Q:GOSUB 1000
270 OQ=Q:CALL SINGLE
280 IF Q=53 THEN 370:IF Q#55 THEN 290:GOSUB 440:GOTO 230
290 IF Q#51 THEN 300:PTR=PTR-1:TOP=TOP-1: POKE PTR,255:PRINT :IF TOP<16384 THEN 760:GOTO 230
300 IF Q=52 THEN 310:IF Q=54 THEN 760:IF INDFLAG THEN 250:GOTO 370
310 PRINT :INPUT "MODE (0=H>S 1=H>H 2=S>S) ?",Q$:IF Q$="" THEN 340:A= ASC(Q$)-176:IF A<0 OR A>2 THEN 240
320 C=0
330 IF A#1 THEN 340:PRINT "TIMBRE (0-3) ";:GOSUB 5:C=Q:IF C<0 OR C>3 THEN 330
340 PRINT "NOTES (1=WHOLE 2=1/2 3=1/4 4=1/8 5=1/16)";:INPUT "(.2 = DOTTED 1/2,ETC.) ?",Q$:IF Q$="" THEN 360:IF Q$(1,1)="." THEN 344
342 B= ASC(Q$)-177:IF B<0 OR B>4 THEN 340:GOTO 360
344 B= ASC(Q$(2,2))-177:IF B<1 OR B>3 THEN 340:B=B+4
360 OQ=128+A+(B*4)+(C*32)
370 Q=OQ:IF Q=255 THEN 250
380 POKE PTR,Q:PTR=PTR+1:TOP=TOP+1: POKE PTR,255
390 IF Q>127 THEN 420
400 PRINT " ACCEPTED: ";Q;
410 OQ=255:GOTO 230
420 POKE 768,Q:CALL SINGLE
430 GOTO 410
440 CALL FIND
450 TOP= PEEK (0)+ PEEK (1)*256
460 PRINT :PRINT "REVIEW HOW MANY NOTES ";:GOSUB 5:R=Q:R=R+1
470 VTAB ( PEEK (37))
480 Q=TOP-R:IF Q<16384 THEN Q=16384: POKE 11,Q MOD 256: POKE 12,Q/256
490 GOSUB 1000
500 POKE 13,0
510 CALL SET
520 RETURN
530 CALL -936:CALL FIND
540 TOP= PEEK (0)+ PEEK (1)*256:PRINT "ENTRIES IN FILE: ";TOP-16385
550 PRINT :PRINT "INPUT LIST START NUMBER ";:GOSUB 5:L=Q
555 TEXT :CALL -936
560 VTAB 22:CALL -958:PRINT "(E)=EDIT (I)=INSERT (D)=DELETE ":PRINT "(RETURN)=NEXT LINE (Q)=QUIT (>)=GOTO": POKE 35,21
570 CALL -936
580 FOR AD=(L+16384) TO (TOP-2)
590 PRINT (AD-16384);": ";:Q= PEEK (AD)
600 IF Q<128 THEN 610:GOSUB 60:GOTO 640
610 Z=1+((Q MOD 12)*2):Q$=R$(Z,(Z+1))
620 IF Q=50 THEN Q$="REST"
630 PRINT "NOTE # ";Q;" (";Q$;") ";
640 POKE 768,Q:CALL SINGLE
650 INPUT Q$:IF LEN(Q$)=0 THEN 750:IF Q$(1,1)="Q" THEN 760
655 IF Q$(1,1)=">" THEN 550
660 IF Q$(1,1)#"D" THEN 665:PRINT "DELETE WHICH NOTE";:GOSUB 5:D=Q:D=D+16384: POKE 60,D MOD 256: POKE 61,D/256:CALL 8067
661 GOTO 750
665 IF Q$(1,1)#"I" THEN 670:PRINT "INSERT WHERE";:GOSUB 5:QQ=Q:D=Q+16384: POKE 60,D MOD 256: POKE 61,D/256:CALL 8064
666 PRINT "INSERT WHAT (M)MODE,(N)NOTE";:INPUT Q$:IF LEN(Q$)=0 THEN 666:IF Q$(1,1)="M" THEN 681:GOTO 730
668 GOTO 750
670 PRINT :PRINT "EDIT WHICH LINE NUMBER ?";:GOSUB 5:Q=Q
675 QQ=Q
679 Q=QQ
680 IF PEEK (16384+Q)<128 THEN 730
681 PRINT :PRINT "MODE (0=H>S 1=H>H 2=S>S) ";:GOSUB 5:A=Q:IF A<0 OR A>2 THEN 679
690 PRINT "NOTES (1=WHOLE 2=1/2 3=1/4 4=1/8 5=1/16)";:INPUT "(.2 = DOTTED 1/2,ETC.)?",Q$
691 IF LEN(Q$)=0 THEN 690:IF Q$(1,1)="." THEN 694:B= ASC(Q$)-177
692 IF B<0 OR B>4 THEN 690:GOTO 700
694 B= ASC(Q$(2,2))-177:IF B<1 OR B>3 THEN 690:B=B+4
700 C=0
710 IF A#1 THEN 720:PRINT "TIMBRE (0-3) ";:GOSUB 5:C=Q
720 R=128+A+(B*4)+(C*32):GOTO 735
730 PRINT "NOTE (0 - 50) ";:GOSUB 5:R=Q:IF R<0 OR R>50 THEN 730
735 Q=QQ
740 POKE (16384+Q),R
750 NEXT AD:GOTO 760
760 TEXT :CALL -936:PRINT " *** APPLE II 'MUSICOMP' SYSTEM ***":PRINT
770 PRINT " COPYRIGHT APPLE COMPUTER INC. 1979"
780 PLAY=6912:SET=6922:FIND=6925:KEYS=6938:SINGLE=6928
785 POKE 17,0
800 VTAB 5:PRINT " PLAY:":PRINT :PRINT " (1) LOAD MUSIC FROM DISK":PRINT " (2) PLAY MUSIC":PRINT " (3) RETURN TO MAIN PROGRAM.":PRINT
810 PRINT " CREATE:":PRINT :PRINT " (4) ENTER NEW MUSIC":PRINT " (5) EDIT MUSIC":PRINT " (6) SAVE MUSIC TO DISK":PRINT
820 VTAB 17:CALL -958: POKE -16368,0:INPUT " CHOOSE (1-6) ?",Q$:IF Q$="" OR Q$=" " THEN 820:Q= ASC(Q$)-176
830 IF Q=1 THEN 920:IF Q=2 THEN 880:IF Q=4 THEN 180
840 IF Q=5 THEN 530:IF Q=3 THEN 1100
850 IF Q=6 THEN 930:GOTO 820
880 VTAB 22:GOSUB 1000:GOSUB 990
885 CALL -936
890 CALL PLAY
900 VTAB 22:GOSUB 990
910 TEXT :GOTO 760
920 CALL -936:GOSUB 970:PRINT "BLOAD";Q$;" ;MUSIC,D";D:GOTO 760
930 CALL -936:GOSUB 970
940 CALL FIND
950 TOP= PEEK (0)+ PEEK (1)*256:L=TOP-16383
955 IF LEN(Q$)=0 THEN 760
960 PRINT "BSAVE";Q$;" ;MUSIC,D";D;",A16384,L";L:GOTO 760
970 PRINT :INPUT "DRIVE (DEFAULT=1) ?",Q$:D=1:IF Q$="" OR Q$=" " THEN 980:D= ASC(Q$)-176:IF D#2 THEN D=1
980 PRINT :INPUT "INPUT FILE NAME?",Q$
981 IF LEN(Q$)=0 THEN 988
982 IF Q$#" " OR Q$=" " THEN 985:Q$=Q$(2, LEN(Q$)):GOTO 982
985 IF ASC(Q$(1,1))<192 OR ASC(Q$(1,1))>222 THEN 987
986 RETURN
987 PRINT "ILLEGAL FILE NAME":GOTO 980
988 POP :GOTO 760
990 PRINT :TAB 10:PRINT "(PRESS THE SPACE BAR)"
995 IF PEEK (-16384)<>160 THEN 995:RETURN
1000 POKE -16304,0: POKE -16300,0: POKE -16297,0:RETURN
1010 POKE -16303,0:RETURN
1020 END
1100 TEXT :CALL -936:VTAB 10:PRINT "MUSIC MEMORY WILL BE ERASED."
1110 VTAB 12:PRINT "DO YOU WISH TO CONTINUE (Y/N)?";:INPUT Q$:IF LEN(Q$)=0 THEN 1110:IF Q$(1,1)="N" THEN 760
1120 IF Q$(1,1)#"Y" THEN 1110:PRINT "RUN MUSICMASTER"
31999 END
32000 HIMEM:16384
32010 RETURN
Listing error: possible embedded machine code.